﻿Public Class Localidad
    'TODO HACER PROPIEDADES

#Region "Declaraciones"
    Private cId As Integer
    Private cNombre As String
    Private cDescripcion As String
    Private cEsCapital As Boolean
#End Region

#Region "Constructores"
    Public Sub New()
        cId = -1
        cNombre = ""
        cDescripcion = ""
        cEsCapital = False
    End Sub

    Public Sub New(ByVal pId As Integer, ByVal pNombre As String, ByVal pDescripcion As String, ByVal pEsCapital As Boolean)
        cId = pId
        cNombre = pNombre
        cDescripcion = pDescripcion
        cEsCapital = pEsCapital
    End Sub
#End Region

#Region "Propiedades"
    Public Property Id()
        Get
            Return cId
        End Get
        Set(ByVal value)
            cId = value
        End Set
    End Property

    Public Property Nombre()
        Get
            Return cNombre
        End Get
        Set(ByVal value)
            cNombre = value
        End Set
    End Property

    Public Property Descripcion()
        Get
            Return cDescripcion
        End Get
        Set(ByVal value)
            cDescripcion = value
        End Set
    End Property

    Public Property EsCapital()
        Get
            Return cEsCapital
        End Get
        Set(ByVal value)
            cEsCapital = value
        End Set
    End Property
#End Region
End Class
